#3.1
num=sample(1:50,10,replace=TRUE)
cat("随机数组为：",num)#输出num
a=0
for(i in num )
{
  if(i>10)
    {a=a+1}
}

cat("大于10的有",a,"个")#输出a

#3.2
num=sample(1:50,10,replace=TRUE)
cat("随机数组为：",num)#输出num
i=1
b=0
while(i<11)
{
  if(num[i]<40)
  {
    b=b+1
    }
 i=i+1
}
 cat("小于40的有",b,"个")#输出b
 
#3.3思路：双层循环，外循环依次选中num数组的一个值，
#内循环找出该数后面的最大值，若存在即交换
num=sample(1:50,10,replace=TRUE)
cat("随机数组为：",num)#输出num
for(i in 1:10)#控制外循环范围
 {
   k=i
   j=i+1
   while(j<11)#控制内循环范围
   {
     if(num[j]>num[k])#在i后面找出最大值
       k=j
     j=j+1
   }
   if(k!=i)#i与i后面数的最大值交换
   {
     temp=num[i]
     num[i]=num[k]
     num[k]=temp}
 }
cat("随机数组为：",num)#输出num

 